perm filename EOCT18[E,ALS] blob
sn#125797 filedate 1974-10-18 generic text, type T, neo UTF8
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 1,1
******** E **** PAGE 1 LINE 1
1) COMMENT ⊗ VALID 00230 PAGES
1) C REC PAGE DESCRIPTION
1) C00001 00001
1) C00019 00002 TITLE EZ -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II
1) C00021 00003 RIGHT HALF FLAGS
*** E[CSP,SYS] *** PAGE 1 LINE 1
2) COMMENT ⊗ VALID 00229 PAGES
2) C REC PAGE DESCRIPTION
2) C00001 00001
2) C00019 00002 TITLE EY -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II
2) C00021 00003 RIGHT HALF FLAGS
******** E **** PAGE 1 LINE 9
1) C00031 00007 ESSAY STUFF
1) C00032 00008 BEG, BEGSYS, BEGACT, BEGRPT, BEGDBG
1) C00035 00009 BEGRPG
1) C00037 00010 BEG0, BEG1, BEG1A, BEG2, BEGBKP
1) C00040 00011 BEG3
1) C00043 00012 MAIN, FNF, FNF2
1) C00045 00013 CMDIN, CMDLUP, CMDEX, CMDX, CMDX2
1) C00047 00014 CMDED, CMDRD, CMDRD2, MINUS, PLUS, NUMS, INFIN, ALTSET
1) C00049 00015 CMDERR, ERR, POPJ1, EXTNUL, CPOPJ, CBTAB, ICHTAB, ILLRDO, ILLDIR, ILLMES, ILLMS2, ERRX, ILLBK
1) C00051 00016 INIT, INIT0, INIT1, INI1, IOBARF
1) C00054 00017 CMDSP
1) C00056 00018 XCMDS, XDISP, MCMDS, MDISP
1) C00058 00019 EXTEND, EXTEN1, EXTL0, EXTL, EXTL1, EXTL2, EXTL3
1) C00060 00020 EXTLK0, EXTLK, EXTAMB, EXTNUL, EXTNF, EXTAM2, EXTBUF, EXTBFE
1) C00062 00021 READON, ROSET, READWR, NORDWR, CANCEL, SNKOFF, SNKON, DPYALW, DPYSKI, NORDOW
1) C00064 00022 DDTGO, R, DRAW, DRAWX, PPSET, LINCNT
1) C00066 00023 GETOUT, GETOU1, FINISH, FINI1, FINI2, GORPG, QUIT, CLOSIT
1) C00068 00024 NEWPAG, NEWPG, NEWPG0, NEWPG1, REREAD, PGINIT, NODEL, PGERR, FINSRT
1) C00070 00025 UNWIND, WIND, WIND1, LT, GT, LTE, GTE, TOP, BOT, JMP, UPARR, DWNARR
1) C00072 00026 XMARK--The `M' commands.
1) C00075 00027 DELLIN, DELPOS
1) C00077 00028 DELLP, DELL2
1) C00079 00029 DELPM, DELPM1, DELPM2, DELPM3
1) C00081 00030 DELPAG, DELPG1, ADJPG, ADJPGL
1) C00083 00031 RCOMP, RCOMP1, RCOMP2, RCOMPX
1) C00084 00032 DELETE, DELET1, ADDPAG
1) C00086 00033 APPEND, APPLUZ
1) C00088 00034 APPEN2, PMTXT, PMPAG
1) C00090 00035 INSERT
1) C00091 00036 INSER1, INSER2, INSER3, INSER4, INSER5
1) C00092 00037 INSER8, DIRADD
1) C00094 00038 INSER6, INSER7, MARK
1) C00095 00039 CONTQ
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 1,1
1) C00097 00040 ATTACH, ATTCH1, ARGCHK, ARGCHN
1) C00099 00041 ATTDO, ATTDO0, ATTDO2, ATTDO1
1) C00101 00042 ATTREP, ATTEX
1) C00103 00043 ATTKIL, ATTKL, ATTSRC, GPAGL, GPAGL0, GPAGL1, GPAGL2, GPAGL3, ATTWRT
1) C00105 00044 ATTCOP, ATTCP1, ATTCP
1) C00106 00045 ATTCP0, ATTCPL, ATCMOR, ATTCP2, ATTCP3, GPAGL
1) C00108 00046 EDIT, EDIT1, LINED, LINL1, EDDSP, EDARG, EDARGX
1) C00110 00047 EDFULL, EDTAB, EDNUL, EDCR, AGAIN, EDRP1, EDRPT
1) C00112 00048 EDGL, EDGL1, EDGL2, EDGL2A
1) C00115 00049 EDGL3, EDGL4, REEDIT, EDTMOR, EDGDSP, EDTAB2, PTOUT, PTPNT
1) C00118 00050 EDCR2, EDACT, EDITIT, REPLIN, PUTBAK
1) C00121 00051 EDPUT, EDPLR
1) C00123 00052 EDPS, EDPL, EDPLUZ
1) C00124 00053 EDSNK, EDSNK2, EDSNK3, ESDSP, ESALT
1) C00125 00054 CRDSP, REGCR, REGCR1, REGCR2
1) C00126 00055 CONTCR, CNTCR2, METACR, REPRST, REPRS2
1) C00128 00056 LECR, DUBLCR, DUBCR2
1) C00130 00057 INSONA, INSONE, INSNUL, INSNLP
1) C00132 00058 LININS, LINSLP, LINS1, LINGLP, LIDSP, LINTAB
1) C00134 00059 LINCR1, LINCR, LICCR, LINALT, LINCOM
1) C00135 00060 LINSTO, LINST1
1) C00137 00061 SETWRT, SETWR2, SETWRX, BTAB, BUF, RBUF
1) C00138 00062 FRD, FRD0, FRD1, NOEXT, NOPRG, NOPPN, NOSWIT, SWITL
1) C00141 00063 SETDEV, GETNAM, GETNML, GETP, GETPL, DTYI1, DTYI, DTYI2
1) C00143 00064 DOSWIT, NTYI, NTYIL, NTYIM, EDFIL, EDFIL2, SRCFIL, DSTFIL
1) C00145 00065 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
1) C00149 00066 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
1) C00151 00067 RSTYI, TYI1, TYI2, TYI3, TYIX, TYI4
1) C00153 00068 TYI, TYIT, TYIU
1) C00154 00069 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
1) C00160 00070 TMPWRT, BKPWRT
1) C00163 00071 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
1) C00165 00072 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
1) C00166 00073 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
1) C00168 00074 UTYPR, UTYPR1, USORRY, UFATAL
1) C00169 00075 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
1) C00172 00076 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2
1) C00175 00077 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
1) C00177 00078 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
1) C00179 00079 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
1) C00180 00080 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV
1) C00183 00081 FSINI, FSINI1, MORCOR
1) C00186 00082 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
1) C00187 00083 FSNEWT, FSNEWP, FSNEW
1) C00188 00084 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
1) C00190 00085 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
1) C00192 00086 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
1) C00194 00087 FSBLT, POPTJ, FSBLT1
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 1,1
1) C00195 00088 FSBLT2, FSBLT3, FSHBLT, FSHBL2
1) C00196 00089 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
1) C00197 00090 FSGIVE, FSGIV1, FSGIV2
1) C00198 00091 CORCHK, CRUNCH, CMPACT
1) C00200 00092 ENDSET, ENDFIX
1) C00201 00093 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
1) C00203 00094 FUCHK, MOVIT, MOVTX
1) C00204 00095 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
1) C00206 00096 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
1) C00209 00097 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
1) C00211 00098 SAVIT
1) C00213 00099 CHECK, CHECK1, CHECK2
1) C00214 00100 CHKDIR, CHKDPL
1) C00216 00101 CHKDR1, CHKD1A, CHKDR2, CDDSP, CHKDR3, CHKDR4, CHKD4A
1) C00218 00102 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
1) C00219 00103 CHKPAG, CHKPGP
1) C00220 00104 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
1) C00222 00105 CHKPG3, CHKPG4, CHKPG5, CHKPG6
1) C00223 00106 CHKATT, CHKNAT
1) C00224 00107 CTAB 0-37
1) C00227 00108 CTAB 40-77
1) C00229 00109 CTAB 100-137
1) C00231 00110 CTAB 140-177
1) C00233 00111 GETDIR
1) C00234 00112 DIRCL2, DIRCL, DIRCL1, GETDR1
1) C00236 00113 DIRLIN, DIRLUP, DIRDON
1) C00239 00114 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
1) C00242 00115 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
1) C00244 00116 COPCOR, COPCHK, YESCHK, COPCMD
1) C00246 00117 FORMAT, FMTOK, FMTDSP
1) C00247 00118 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
1) C00248 00119 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
1) C00250 00120 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
1) C00252 00121 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
1) C00254 00122 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX
1) C00256 00123 CREATE, CREAT2, CTEXT
1) C00258 00124 RDPAGE, RDPGOK, RDSPAG, RDPAG0
1) C00260 00125 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
1) C00262 00126 RDLCR, RDLLF, NUMSTR
1) C00264 00127 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
1) C00266 00128 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
1) C00267 00129 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
1) C00269 00130 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
1) C00270 00131 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
1) C00271 00132 DIRGET, DIRGL, DGEND, DRGSET
1) C00273 00133 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
1) C00275 00134 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
1) C00277 00135 INSDIR, DCLP1, DCLP2, DCNG, INSDL
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 1,1
1) C00279 00136 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
1) C00281 00137 IDNUL, IDDON, IDDONS
1) C00283 00138 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
1) C00284 00139 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
1) C00286 00140 DISPLAY DATA STORAGE
1) C00287 00141 MORE DISPLAY STORAGE
1) C00288 00142 HEADERS & TRAILERS
1) C00289 00143 DPYINI, DPYCHK
1) C00291 00144 DPYI2, NODPY, WIPE, IWIPE
1) C00293 00145 SETSCR, NMVARR, MOVARR, SETARR
1) C00295 00146 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
1) C00297 00147 DISP, DISP0, DISP1, DISP2
1) C00299 00148 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
1) C00301 00149 DISPAT, DISPAX
1) C00302 00150 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
1) C00304 00151 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
1) C00305 00152 IIIARR, IIIAR2, IIIAR3
1) C00307 00153 LESET, LEADJ, LECLR
1) C00308 00154 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
1) C00310 00155 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
1) C00311 00156 DDISP, DDISP2
1) C00312 00157 DOARR, DOAR2, OFFARR, ONARR
1) C00313 00158 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
1) C00315 00159 DSPSAT, DSPSAX
1) C00316 00160 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
1) C00318 00161 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
1) C00320 00162 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
1) C00321 00163 WRPAGE, WRPAG1, WRPAG2, WRBOOK
1) C00323 00164 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
1) C00324 00165 WRPX3, WRPX4
1) C00325 00166 WRPOK, WRTIT, WRT0
1) C00326 00167 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
1) C00328 00168 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
1) C00330 00169 WRPM, BTAB2
1) C00332 00170 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
1) C00333 00171 TV, RSYS, RUN, RUN1
1) C00336 00172 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
1) C00337 00173 SEARCH ROUTINES
1) C00338 00174 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
1) C00340 00175 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT
1) C00342 00176 FINDIT, FOUND, FNDMOV, FNDERR
1) C00344 00177 FIND
1) C00346 00178 DIRSRC, DFERR, SRCDF, SDFCR
1) C00348 00179 SSET, SSET2
1) C00349 00180 SCOMP, SCOMPX, SCOMPR
1) C00351 00181 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
1) C00353 00182 SPARSE
1) C00354 00183 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 1,1
1) C00356 00184 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
1) C00358 00185 SSCLP, SSCDSP
1) C00360 00186 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
1) C00362 00187 SGNOT
1) C00363 00188 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
1) C00365 00189 SBBRCH, SBBR2
1) C00366 00190 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
1) C00367 00191 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
1) C00369 00192 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
1) C00371 00193 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
1) C00373 00194 SBCCB6, SBCCB7, BITCNT, BITCN1
1) C00374 00195 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
1) C00376 00196 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
1) C00378 00197 SCCOM, SCCNOT
1) C00379 00198 SCCBIT
1) C00380 00199 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
1) C00382 00200 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
1) C00384 00201 SCGEN
1) C00386 00202 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
1) C00388 00203 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
1) C00390 00204 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
1) C00392 00205 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
1) C00394 00206 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
1) C00396 00207 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
1) C00398 00208 SRCPAG, SRCPG1
1) C00400 00209 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
1) C00401 00210 SRCPGF, SPFTAB, SPFCR, SPFLUZ
1) C00403 00211 SRCPGB, SPFTAB, SBKNL, SBKNUL
1) C00404 00212 SRCSET, SRCST1, SRCSTL, SRCST2
1) C00405 00213 SCALL, SRCHX, SRCHLX
1) C00406 00214 SCNBAK, SCNBKL
1) C00408 00215 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
1) C00410 00216 SRCFF, SFFNUL, SGTACS, SRTACS
1) C00411 00217 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
1) C00412 00218 JFILL, JUST, JUSTL1, JUSTL2, JDISP
1) C00416 00219 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
1) C00418 00220 JUSMAR
1) C00423 00221 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
1) C00425 00222 NXTLIN, NXTLN2, JTAB, NXTBL
1) C00428 00223 JDUMP, JDMP2, JDLT, JDL1, JDISP2
1) C00432 00224 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
1) C00434 00225 JDFIN
1) C00436 00226 JDFIN2, JSET, JSET2
1) C00439 00227 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
1) C00441 00228 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
1) C00442 00229 PDL, PATCH, PAT, ZVARS, LEGTAB
1) C00444 00230
1) C00445 ENDMK
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 1,1
1) C⊗;
1) ;TITLE EZ -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II
1) ESSAY←←0 ;NON-ZERO MEANS ASSEMBLE ESSAY
1) IFE ESSAY<TITLE EZ -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II>
1) IFN ESSAY<TITLE ESSAY>
1) COMMENT ⊗ TO PUT UP A NEW E WITH AN UPPER SEGMENT, USE THE COMMANDS:
*** E[CSP,SYS] *** PAGE 1 LINE 9
2) C00034 00007 BEG, BEGSYS, BEGACT, BEGRPT, BEGDBG
2) C00037 00008 BEGRPG
2) C00039 00009 BEG0, BEG1, BEG1A, BEG2, BEGBKP
2) C00043 00010 BEG3
2) C00046 00011 MAIN, FNF, FNF2
2) C00048 00012 CMDIN, CMDLUP, CMDEX, CMDX, CMDX2
2) C00050 00013 CMDED, CMDRD, CMDRD2, MINUS, PLUS, NUMS, INFIN, ALTSET
2) C00052 00014 CMDERR, ERR, POPJ1, EXTNUL, CPOPJ, CBTAB, ICHTAB, ILLRDO, ILLDIR, ILLMES, ILLMS2, ERRX, ILLBK
2) C00054 00015 INIT, INIT0, INIT1, INI1, IOBARF
2) C00057 00016 CMDSP
2) C00059 00017 XCMDS, XDISP, MCMDS, MDISP
2) C00061 00018 EXTEND, EXTEN1, EXTL0, EXTL, EXTL1, EXTL2, EXTL3
2) C00063 00019 EXTLK0, EXTLK, EXTAMB, EXTNUL, EXTNF, EXTAM2, EXTBUF, EXTBFE
2) C00065 00020 READON, ROSET, READWR, NORDWR, CANCEL, SNKOFF, SNKON, DPYALW, DPYSKI, NORDOW
2) C00067 00021 DDTGO, R, DRAW, DRAWX, PPSET, LINCNT
2) C00069 00022 GETOUT, GETOU1, FINISH, FINI1, FINI2, GORPG, QUIT, CLOSIT, GODRD
2) C00072 00023 NEWPAG, NEWPG, NEWPG0, NEWPG1, REREAD, PGINIT, NODEL, PGERR, FINSRT
2) C00075 00024 UNWIND, WIND, WIND1, LT, GT, LTE, GTE, TOP, BOT, JMP, UPARR, DWNARR
2) C00077 00025 XMARK--The `M' commands.
2) C00080 00026 DELLIN, DELPOS
2) C00082 00027 DELLP, DELL2
2) C00084 00028 DELPM, DELPM1, DELPM2, DELPM3
2) C00086 00029 DELPAG, DELPG1, ADJPG, ADJPGL
2) C00088 00030 RCOMP, RCOMP1, RCOMP2, RCOMPX
2) C00089 00031 DELETE, DELET1, ADDPAG
2) C00091 00032 APPEND, APPLUZ
2) C00093 00033 APPEN2, PMTXT, PMPAG
2) C00095 00034 INSERT
2) C00096 00035 INSER1, INSER2, INSER3, INSER4, INSER5
2) C00097 00036 INSER8, DIRADD
2) C00099 00037 INSER6, INSER7, MARK
2) C00100 00038 CONTQ
2) C00102 00039 ATTACH, ATTCH1, ARGCHK, ARGCHN
2) C00104 00040 ATTDO, ATTDO0, ATTDO2, ATTDO1
2) C00106 00041 ATTREP, ATTEX
2) C00108 00042 ATTKIL, ATTKL, ATTSRC, GPAGL, GPAGL0, GPAGL1, GPAGL2, GPAGL3, ATTWRT
2) C00110 00043 ATTCOP, ATTCP1, ATTCP
2) C00111 00044 ATTCP0, ATTCPL, ATCMOR, ATTCP2, ATTCP3, GPAGL
2) C00113 00045 EDIT, EDIT1, LINED, LINL1, EDDSP, EDARG, EDARGX
2) C00115 00046 EDFULL, EDTAB, EDNUL, EDCR, AGAIN, EDRP1, EDRPT
2) C00117 00047 EDGL, EDGL1, EDGL2, EDGL2A
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 1,1
2) C00120 00048 EDGL3, EDGL4, REEDIT, EDTMOR, EDGDSP, EDTAB2, PTOUT, PTPNT
2) C00123 00049 EDCR2, EDACT, EDITIT, REPLIN, PUTBAK
2) C00126 00050 EDPUT, EDPLR
2) C00128 00051 EDPS, EDPL, EDPLUZ
2) C00129 00052 EDSNK, EDSNK2, EDSNK3, ESDSP, ESALT
2) C00130 00053 CRDSP, REGCR, REGCR1, REGCR2
2) C00131 00054 CONTCR, CNTCR2, METACR, REPRST, REPRS2
2) C00133 00055 LECR, DUBLCR, DUBCR2
2) C00135 00056 INSONA, INSONE, INSNUL, INSNLP
2) C00137 00057 LININS, LINSLP, LINS1, LINGLP, LIDSP, LINTAB
2) C00139 00058 LINCR1, LINCR, LICCR, LINALT, LINCOM
2) C00140 00059 LINSTO, LINST1
2) C00142 00060 SETWRT, SETWR2, SETWRX, BTAB, BUF, RBUF
2) C00143 00061 FRD, FRD0, FRD1, NOEXT, NOPRG, NOPPN, NOSWIT, SWITL
2) C00146 00062 SETDEV, GETNAM, GETNML, GETP, GETPL, DTYI1, DTYI, DTYI2
2) C00148 00063 DOSWIT, NTYI, NTYIL, NTYIM, EDFIL, EDFIL2, SRCFIL, DSTFIL
2) C00150 00064 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
2) C00154 00065 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
2) C00156 00066 RSTYI, TYI1, TYI2, TYI3, TYIX, TYI4
2) C00158 00067 TYI, TYIT, TYIU
2) C00159 00068 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
2) C00165 00069 TMPWRT, BKPWRT
2) C00168 00070 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
2) C00170 00071 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
2) C00171 00072 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
2) C00173 00073 UTYPR, UTYPR1, USORRY, UFATAL
2) C00174 00074 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
2) C00177 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2
2) C00180 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
2) C00182 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
2) C00184 00078 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
2) C00185 00079 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV
2) C00188 00080 FSINI, FSINI1, MORCOR
2) C00191 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
2) C00192 00082 FSNEWT, FSNEWP, FSNEW
2) C00193 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
2) C00195 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
2) C00197 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
2) C00199 00086 FSBLT, POPTJ, FSBLT1
2) C00200 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
2) C00201 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
2) C00202 00089 FSGIVE, FSGIV1, FSGIV2
2) C00203 00090 CORCHK, CRUNCH, CMPACT
2) C00205 00091 ENDSET, ENDFIX
2) C00206 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
2) C00208 00093 FUCHK, MOVIT, MOVTX
2) C00209 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
2) C00211 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 1,1
2) C00214 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
2) C00216 00097 SAVIT
2) C00218 00098 CHECK, CHECK1, CHECK2
2) C00219 00099 CHKDIR, CHKDPL
2) C00221 00100 CHKDR1, CHKD1A, CHKDR2, CDDSP, CHKDR3, CHKDR4, CHKD4A
2) C00223 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
2) C00224 00102 CHKPAG, CHKPGP
2) C00225 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
2) C00227 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
2) C00228 00105 CHKATT, CHKNAT
2) C00229 00106 CTAB 0-37
2) C00232 00107 CTAB 40-77
2) C00234 00108 CTAB 100-137
2) C00236 00109 CTAB 140-177
2) C00238 00110 GETDIR
2) C00239 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
2) C00241 00112 DIRLIN, DIRLUP, DIRDON
2) C00244 00113 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
2) C00247 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
2) C00249 00115 COPCOR, COPCHK, YESCHK, COPCMD
2) C00251 00116 FORMAT, FMTOK, FMTDSP
2) C00252 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
2) C00253 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
2) C00255 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
2) C00257 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
2) C00259 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX
2) C00261 00122 CREATE, CREAT2, CTEXT
2) C00263 00123 RDPAGE, RDPGOK, RDSPAG, RDPAG0
2) C00265 00124 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
2) C00267 00125 RDLCR, RDLLF, NUMSTR
2) C00269 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
2) C00271 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
2) C00272 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
2) C00274 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
2) C00275 00130 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
2) C00276 00131 DIRGET, DIRGL, DGEND, DRGSET
2) C00278 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
2) C00280 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
2) C00282 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
2) C00284 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
2) C00286 00136 IDNUL, IDDON, IDDONS
2) C00288 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
2) C00289 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
2) C00291 00139 DISPLAY DATA STORAGE
2) C00292 00140 MORE DISPLAY STORAGE
2) C00293 00141 HEADERS & TRAILERS
2) C00294 00142 DPYINI, DPYCHK
2) C00296 00143 DPYI2, NODPY, WIPE, IWIPE
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 1,1
2) C00298 00144 SETSCR, NMVARR, MOVARR, SETARR
2) C00300 00145 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
2) C00302 00146 DISP, DISP0, DISP1, DISP2
2) C00304 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
2) C00306 00148 DISPAT, DISPAX
2) C00307 00149 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
2) C00309 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
2) C00310 00151 IIIARR, IIIAR2, IIIAR3
2) C00312 00152 LESET, LEADJ, LECLR
2) C00313 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
2) C00315 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
2) C00316 00155 DDISP, DDISP2
2) C00317 00156 DOARR, DOAR2, OFFARR, ONARR
2) C00318 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
2) C00320 00158 DSPSAT, DSPSAX
2) C00321 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
2) C00323 00160 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
2) C00325 00161 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
2) C00326 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
2) C00328 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
2) C00329 00164 WRPX3, WRPX4
2) C00330 00165 WRPOK, WRTIT, WRT0
2) C00331 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
2) C00333 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
2) C00335 00168 WRPM, BTAB2
2) C00337 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
2) C00338 00170 TV, RSYS, RUN, RUN1
2) C00341 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
2) C00342 00172 SEARCH ROUTINES
2) C00343 00173 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
2) C00345 00174 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT
2) C00347 00175 FINDIT, FOUND, FNDMOV, FNDERR
2) C00349 00176 FIND
2) C00351 00177 DIRSRC, DFERR, SRCDF, SDFCR
2) C00353 00178 SSET, SSET2
2) C00354 00179 SCOMP, SCOMPX, SCOMPR
2) C00356 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
2) C00358 00181 SPARSE
2) C00359 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
2) C00361 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
2) C00363 00184 SSCLP, SSCDSP
2) C00365 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
2) C00367 00186 SGNOT
2) C00368 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
2) C00370 00188 SBBRCH, SBBR2
2) C00371 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
2) C00372 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
2) C00374 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 1,1
2) C00376 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
2) C00378 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
2) C00379 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
2) C00381 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
2) C00383 00196 SCCOM, SCCNOT
2) C00384 00197 SCCBIT
2) C00385 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
2) C00387 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
2) C00389 00200 SCGEN
2) C00391 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
2) C00393 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
2) C00395 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
2) C00397 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
2) C00399 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
2) C00401 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
2) C00403 00207 SRCPAG, SRCPG1
2) C00405 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
2) C00406 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
2) C00408 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
2) C00409 00211 SRCSET, SRCST1, SRCSTL, SRCST2
2) C00410 00212 SCALL, SRCHX, SRCHLX
2) C00411 00213 SCNBAK, SCNBKL
2) C00413 00214 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
2) C00415 00215 SRCFF, SFFNUL, SGTACS, SRTACS
2) C00416 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
2) C00417 00217 JFILL, JUST, JUSTL1, JUSTL2, JDISP
2) C00421 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
2) C00423 00219 JUSMAR
2) C00428 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
2) C00430 00221 NXTLIN, NXTLN2, JTAB, NXTBL
2) C00433 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
2) C00437 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
2) C00439 00224 JDFIN
2) C00441 00225 JDFIN2, JSET, JSET2
2) C00444 00226 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
2) C00446 00227 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
2) C00447 00228 PDL, PATCH, PAT, ZVARS, LEGTAB
2) C00449 00229
2) C00450 ENDMK
2) C⊗;
2) ;TITLE EY -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II
2) ESSAY←←1 ;NON-ZERO MEANS ASSEMBLE ESSAY
2) IFE ESSAY<TITLE EY -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II>
2) IFN ESSAY<TITLE ESSAY
2) PRINTS / You are assembling Essay, not E
2) />
2) COMMENT ⊗ TO PUT UP A NEW E WITH AN UPPER SEGMENT, USE THE COMMANDS:
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 1,1
******** E **** PAGE 2 LINE 33
1) IFNDEF PURESW<IFN ESSAY<PURESW←←0>> ;ESSAY IS NOT PURE, YET
1) IFNDEF PURESW<PURESW←←1> ;DEFAULT TO SHARABLE PURE UPPER SEGMENT
*** E[CSP,SYS] *** PAGE 2 LINE 35
2) IFNDEF PURESW<PURESW←←1> ;DEFAULT TO SHARABLE PURE UPPER SEGMENT
******** E **** PAGE 7 LINE 1
1) ;ESSAY STUFF
1) IFN ESSAY,<
*** E[CSP,SYS] *** PAGE 6 LINE 76
2) ;********* BEG OF ESSAY DEFS *********
2) IFN ESSAY,<
******** E **** PAGE 7 LINE 6
1) NEPESC←←4 ;NUMBER OF ENTRIES PER ESSAY CALL
1) ;FILE NAME ONE [COMPACT THIS ONCE IT WORKS PROPERLY]
1) ;FILE NAME TWO
1) ;PAGE NUMBER
*** E[CSP,SYS] *** PAGE 6 LINE 81
2) NEPESC←←5 ;NUMBER OF ENTRIES PER ESSAY CALL
2) ;FILE NAME ONE [COMPACT THIS ONCE IT WORKS PROPERLY]
2) ;FILE NAME TWO
2) ;PPN
2) ;PAGE NUMBER
******** E **** PAGE 7 LINE 20
1) >;IFN ESSAY
*** E[CSP,SYS] *** PAGE 6 LINE 97
2) ESPUSH: MOVEI A,NRESSC ;THIS IS THE NUMBER OF CALLS THERE IS ROOM FOR
2) CAMGE A,ESYPNP ;SKIP IF THERE ARE FEWER THAN MAX ENTRIES ON STACK
2) JRST [ OUTSTR [ASCIZ /
2) You already have filled the Essay stack./]
2) POPJ P,]
2) PUSHJ P,FINISH ;SAVE HIS EDITS
2) AOS ESYPNP ;TELL THE WORLD ABOUT THIS ENTRY WE ARE ADDING
2) MOVE A,ESYPDP ;ESSAY PDL POINTER
2) PUSH A,EDFIL ;I HOPE THIS IS THE FIRST FILE NAME I AM PUSHING
2) PUSH A,EDFIL+1 ;THIS SHOULD BE FILE NAME TWO
2) PUSH A,EDFIL+3 ;THIS SHOULD BE THE PPN
2) PUSH A,CURPAG ;I HOPE THIS IS THE PAGE NUMBER
2) PUSH A,[0] ;DONT KNOW WHERE TO FIND THE LINE NUMBER YET
2) MOVEM A,ESYPDP ;SAVE THE PDL POINTER
2) CLRBFI
2) JSP P,INIT
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 7,6
2) PUSHJ P,RSCAN
2) PTWR1W [0↔14120] ;DO A <BREAK>P
2) JRST BEG0A ;SAME AS BEG0, BUT WE GET TO INSERT A BRK P AFTER RSCAN
2) ESYPOP: PUSHJ P,FINISH ;SAVE AWAY HIS DOIN'S
2) SOS ESYPNP ;NUMBER OF THINGS ON STACK
2) CLRBFI
2) JSP P,INIT
2) MOVE A,ESYPDP ;GET THE PDL POINTER
2) POP A,B ;THE LINE NUMBER
2) PUSHJ P,E6TCFB ;PUT THE SIXBIT OF NUMBER IN B INTO C
2) MOVEM D,SLINE#
2) POP A,B ;THE PAGE NUMBER
2) PUSHJ P,E6TCFB ;PUT THE SIXBIT IN C
2) MOVEM D,SPAGE#
2) POP A,EDFIL+3 ;THIS IS THE PPN
2) POP A,B ;THIS IS FILE NAME TWO
2) HLLZM B,EDFIL+1 ;PUT IT AWAY
2) POP A,EDFIL ;THIS IS THE FILE NAME
2) MOVEM A,ESYPDP ;SAVE THE NEW PUSH DOWN POINTER
2) PTWR1W [0↔15] ;THIS IS DIRTY POOL
2) JRST BEGSY3
2) ESINIT: MOVE A,[-ESPDLL,,ESYPDL-1] ;THIS IS THE ESSAY PDL POINTER
2) MOVEM A,ESYPDP ;THE ESSAY PDL POINTER IS KEPT HERE WHEN USED
2) SETZM ESYPNP ;CELL CONTAINS NUMBER OF CALLS ON STACK
2) POPJ P,
2) E6TCFB: MOVE E,[440600,,D] ;BE PUTTING SIXBIT INTO D
2) E6TC01: IDIVI B,=10
2) HRLM C,(P)
2) SKIPE B
2) PUSHJ P,E6TC01
2) LDB C,[220600,,(P)]
2) TRC C,=48
2) SUBI C,40 ;MAKE SIXBIT OUT OF THIS
2) IDPB C,E
2) POPJ P,
2)
2) >;IFN ESSAY
******** E **** PAGE 9 LINE 11
1) MOVE T,EPDL2 ;GET COMMAND NAME
*** E[CSP,SYS] *** PAGE 7 LINE 10
2) IFN ESSAY,<PUSHJ P,ESINIT> ;ESSAY VARS INIT, BUT ONLY INIT ONCE
2) MOVE T,EPDL2 ;GET COMMAND NAME
******** E **** PAGE 9 LINE 11
1) PUSHJ P,TMPRED ;TRY TO READ TMPCORE FILE
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 9,7
*** E[CSP,SYS] *** PAGE 7 LINE 32
2) IFN ESSAY,<PUSHJ P,ESINIT> ;INIT ESSAY VARS, BUT ONLY IN SELECTED PLACES
2) PUSHJ P,TMPRED ;TRY TO READ TMPCORE FILE
******** E **** PAGE 9 LINE 11
1) HRRZ T,RPGLIN
*** E[CSP,SYS] *** PAGE 8 LINE 8
2) IFN ESSAY,<PUSHJ P,ESINIT> ;ESSAY INIT, ONLY IN SELECTED PLACES
2) HRRZ T,RPGLIN
******** E **** PAGE 10 LINE 4
1) PUSHJ P,RSCAN ;RESCAN TTY
*** E[CSP,SYS] *** PAGE 9 LINE 4
2) IFN ESSAY,<PUSHJ P,ESINIT> ;ESSAY INIT
2) PUSHJ P,RSCAN ;RESCAN TTY
******** E **** PAGE 16 LINE 17
1) IFN ESSAY,<
1) MOVE A,[-ESPDLL,,ESYPDL-1] ;THIS IS THE ESSAY PDL POINTER
1) MOVEM A,ESYPDP ;THE ESSAY PDL POINTER IS KEPT HERE WHEN USED
1) SETZM ESYPNP ;CELL CONTAINS NUMBER OF CALLS ON STACK
1) >;IFN ESSAY
1) MOVE A,[ZVARS,,ZVARS+1]
*** E[CSP,SYS] *** PAGE 15 LINE 17
2) MOVE A,[ZVARS,,ZVARS+1]
******** E **** PAGE 18 LINE 1
1) ;XCMDS, XDISP, MCMDS, MDISP
*** E[CSP,SYS] *** PAGE 16 LINE 58
2) IFN ESSAY,<CC(N) NOATT,,ESPUSH>
2) ;XCMDS, XDISP, MCMDS, MDISP
******** E **** PAGE 18 LINE 10
1) ,FIND,<GORPG,NOATT>,<INDENT,SACMD>
1) ,<INSERT,↑INSCMD::NOATT!NORDO>,<JFILL,SACMD>,<JLEFT,SACMD>
*** E[CSP,SYS] *** PAGE 17 LINE 10
2) ,<DRD,NOATT,GODRD>,FIND,<GORPG,NOATT>,<INDENT,SACMD>
2) ,<INSERT,↑INSCMD::NOATT!NORDO>,<JFILL,SACMD>,<JLEFT,SACMD>
******** E **** PAGE 23 LINE 1
1) ;GETOUT, GETOU1, FINISH, FINI1, FINI2, GORPG, QUIT, CLOSIT
1) GETOUT: TRZE F,ATTMOD
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 23,22
1) JRST ATTEX
1) PUSHJ P,FINISH
1) GETOU1: CALLI
*** E[CSP,SYS] *** PAGE 22 LINE 1
2) ;GETOUT, GETOU1, FINISH, FINI1, FINI2, GORPG, QUIT, CLOSIT, GODRD
2) GETOUT: TRZE F,ATTMOD
2) JRST ATTEX
2) IFE ESSAY,<PUSHJ P,FINISH>
2) IFN ESSAY,< ;αβE MEANS POP, UNLESS ABOUT TO OVER-POP, IN WHICH CASE, EXIT
2) SKIPE ESYPNP ;SKIP IF THERE ARE NO STATES ON THE PDL TO RETURN TO
2) JRST ESYPOP ;POP, RETURNING TO ANOTHER FILE
2) PUSHJ P,FINISH
2) >;IFN ESSAY
2) GETOU1: CALLI
******** E **** PAGE 24 LINE 54
1) MOVE A,BOTWIN
1) MOVE T,CURPAG
*** E[CSP,SYS] *** PAGE 23 LINE 54
2) TRNE F,REL
2) JRST FORMF1
2) FORMF3: MOVE A,BOTWIN
2) MOVE T,CURPAG
******** E **** PAGE 24 LINE 62
1) FINSRT: MOVE D,INSCMD
*** E[CSP,SYS] *** PAGE 23 LINE 64
2) FORMF1: TRNN F,NEG
2) JRST FORMF3
2) MOVE A,TOPWIN
2) MOVE T,CURPAG
2) CAILE T,1
2) CAILE A,1
2) JRST FORMF2
2) MOVNI A,1
2) PUSHJ P,NEWPG
2) TRZ F,NEG!REL
2) MOVE A,BOTWIN
2) SOJA A,WIND1
2) FORMF2: MOVNI A,1
2) JRST WIND
2) FINSRT: MOVE D,INSCMD
******** E **** PAGE 109 LINE 18
1) LETF!ED,,7(DSP) ;N
1) E vs. 2) E[CSP,SYS] SRCCOM 10-18-74 08:06 PAGES 109,108
1) LETF!ED,,7(DSP) ;O
*** E[CSP,SYS] *** PAGE 108 LINE 18
2) LETF!ED,,%N(DSP) ;N
2) LETF!ED,,7(DSP) ;O
******** E **** PAGE 110 LINE 18
1) LETF!LT2F!ED,,7(DSP) ;n
1) LETF!LT2F!ED,,7(DSP) ;o
*** E[CSP,SYS] *** PAGE 109 LINE 18
2) LETF!LT2F!ED,,%N(DSP) ;n
2) LETF!LT2F!ED,,7(DSP) ;o